# Autores mais relevantes;
# Pacotes necessários: dplyr, ggplot2;

library(dplyr)
library(ggplot2)

# Dados
df <- tibble::tibble(
  Authors   = c("WANG Y","WANG X","LI Y","ZHANG Y","LIU J","LI X","LIU Y","CHEN X","WANG H","ZHANG J"),
  Documents = c(157,116,110,107,99,92,91,85,84,83)
)

# Ordenando
df <- df %>% arrange(Documents)

p <- ggplot(df, aes(x = Documents, y = factor(Authors, levels = df$Authors))) +
  geom_segment(aes(x = 0, xend = Documents, yend = factor(Authors, levels = df$Authors)),
               linewidth = 0.4) +
  geom_point(
    aes(size = Documents),
    shape = 21,                   
    fill  = "#A6DCE3",            
    color = "#2CA3B9",            
    stroke = 0.3
  ) +
  geom_text(aes(label = Documents), vjust = 0.5, hjust = 0.5, size = 3) +
  labs(x = "N. of Documents", y = "Authors") +
  theme_minimal(base_size = 12)
p
# Exportar
ggsave("Most_Productive_Authors_bubbles_300dpi.eps", p,
       device = cairo_ps, width = 9, height = 5, units = "in", dpi = 300)
